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3 
POSBE 1S-se -1984 8:38 VAX-11 Bliss-32 V4.0-742 Page 1 
1278081 3Be 95:28 46 DISKSVMSMASTER CMTAACP. SRCIPOSBE.B32; 1° (1) 

ee 7 1 Q MODULE POSBE (LANGUAGE (BLISS32) , ; 
; § ¢ {DENT = 'v04-000' : 
S gs ect ; 
: § oF : leuaennteenenetentenenetneenentreoreerentertentinetentnntennenetnentennnennts : 
Py .7 + I 
; 8 008 1 !* COPYRIGHT (c) 1978, 1989, 1982, 1984 BY * ‘ 
3 9 10 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * . 
3 19 Bi9 : :* ALL RIGHTS RESERVED. : : 
; 1 0012 1 i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + ; 
3 1 1 1 !* ONLY IN ACCORDANCE WITH SUCH LICENSE AND WITH THE * e 
>; «614 0014 1 !# LUSION OF THE ABCVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ° 
; 16 B018 7 fe OF PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ‘ 
: i? oote : 7 TRANSFERRED. . ; 
3 i 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ‘ 
; 1 B63 : pd CORPORATION. . : 
° :* 8 
; : 00 § 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; $e a8 ¢ : i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 2 ° 
3 0026 1 Is . 
3 e7 VOM MR SETS STITT TTT TTT Tree eT rere ti titi iit ii iii iii iii iiiiiiiiiiiiicy : 
; @ 0028 1 3 
3 9 i 94 1 !44 : 
; 0 0030 1! ; 
; 1 0031 1 ! FACILITY: MTAACP , 
: 3 00 ¢ 1 ! : 
; 00 1 ! ABSTRACT: : 
; < Oo Re ’ This module positions to the beginning or to the end of the volume set : 
; « 0036 1 | : 
3 $ Oo ee ' : ENVIRONMENT: ; 
: 39 0039 1! VMS operating system, including privileged system services : 
: 40 0040 1! and internal exec routines. : 
: (41 0041 1! : 
3 *§ 004 1 !-- : 
: 4 0045 1 ; 
; 4h 0044 1 | : 
: 45 45 1! ‘ 
: 48 Bog ! : AUTHOR: D. H. GILLESPIE, CREATION DATE: 14-JUL-1977 ‘ 
; «68 048 1 | MODIFIED BY: : 
; «649 0049 1! : 
; 20 Oped ' V02-004 REFORMAT Maria del C. Nasr 30-Jun-1980 : 
: i : 
; 33 83 | ies ; 
: ¢¢ bee 1 ; : 
; 2 Opee } LIBRARY ‘SYSS$LIBRARY:LIB.L32'; : 
; 3 008? 1 REQUIRE "SRCS:MTADEF 832"; ; 


VO2~500 1$-$0-1 93ieeice | UTSRSUNGHASTERGcMTARCP.SRcIPOSBE.B3269%° «15 


; «(58 0441 1 


N 3 
eSep-19be 83:46:46 DISKSVNSAASTER:CM 


4.0-742 3 
TER: CMTAACP. SRCIJPOSBE. 832 r * (2) 


H $0 tts ! GLOBAL ROUTINE POSITION_TO_END : COMMON_CALL NOVALUE = ‘ 
; ¢ 444 1 S44 ‘ 
; § 445 1! ‘ 
: 64 re 7 lesa DESCRIPTION: ° 
: o? rf ! This routine positions the volume seit at the end ° 
*. OF re 1 ! CALLING SEQUENCE: : 
; «68 450 1 POSITION_TO_END() : 
; 0451 1! : 
3 70 126 1 ! INPUT PARAMETERS: ‘ 
; 2 $2 1! NONE ‘ 
ce 454 1 i ; 
; 7 beee 1 ! vias (= ha ght ° 
3; ££ +28 1! RRENT_VCB = address of current vcb ° 
; o ott : } CURRENT “WCB - address of current web ‘ 
: ae 0459 1 ! OUTPUT PARAMETERS: : 
: we 0460 1! NONE ‘ 
; ww 0461 1! ‘ 
H 80 0462 1 ! IMPLICIT OUTPUTS: ‘ 
>; «81 0463 1 | NONE : 
:- = 0464 1! ; 
oe 0465 1 ' ROUTINE VALUE: : 
: B4 0466 1! NONE ‘ 
; 0467 1! . 
: 0468 1 ! SIDE EFFECTS: ‘ 
; OT 0469 1! The volume set is positioned to the end : 
3 4 Bed ; } If the dummy file is found, then the tape is positioned before the dummy file : 
; 0472 1 ! USER ERRO : 
$ 4 oer 7 } ees P TLALRACC - can not postion to end if a file is already accessed ‘ 
ae . 0475 1 !-- ° 
; 9 476 1 : 
; 477 2 BEGIN : 
> 696 0478 2 : 
; 97 0479 2 EXTERNAL REGISTER : 
; 0480 COMMON ; ‘ 
; 0481 ; 
; 100 048 LOCAL : 
; 101 048 MVL : REF BBLOCK, ! mag tape volume List : 
3; 102 0484 LASTVOL; ! rvn of last volume ‘ 
: 103 485 : 
3 104 48 EXTERNAL : 
3; 105 48 ‘ 
3 196 rt address of current window control block : 
; 108 49 CURRENT_WCB : REF BBLOCK; . 
: 109 49 

3; 110 9 EXTERNAL noyt ine 

» 19 49 CLOSE_Fl : LSCLOSE_FILE, ' close file 

: ie 0494 HH ¥e HDR =: - L$GET_START_HDR, ' get start headers 

: HF 63? PATE_ : COMMOR_CALL? i Space to end of file 

5 115 0699 ' this aes is not legal if a file is open 

3; 116 0498 : 


If CURRENT WCB NEQU 0 
ERR_EXIT(SS$_FILALRACC); 
IF CURRENT _VCBLVCBSV_PARTF ILE] 
CLOSE_FILE(); 
WHILE 1 
DO 
BEGIN 
IF NOT GET_START_HDR() 
EXITLOOP; 
IF; CURRENT VCBLVCBSW_CUR_NUMJ EQLU 0 
EXITLOOP; 
SPACE_EOF () 
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Routine Size: 38 bytes, Routine Base: $CODE$S + 0000 


| 524 1 

14 525 1 END 
144 5 § 1 

145 5 0 ELLDOM 


Bliss-32 V 
SM 


! space to end of current file 


' end of 


routine 


POSBE 
\v04-000\ 


CURRENT_WCB, CLOSE_FILE 
GET_START HOR, SPATE _EOF 


SCODES,NOWRT,2 
POSITION TO_END, Save R10 
CURRENT_@CB™ 

1$ 

#164 
11(CURRENT_VCB), 2$ 
CLOSE _F 
GET_START_HDR 
6(CURRENT_VCB) 
#0, SPACE_EOF 
2$ 


4.0-742 
ASTER: CMTAACP. SRCIJPOSBE. B32;1 


4 
* (2) 


< 
2 


¢ 4 
16-Sep-1984 02:28:38 — VAX~11 BLiss~32, V4 0-742 5 RD! 
14-Sep-1984 12:46:46 DISKSVMSMASTER: CMTAACP. SRCIPOSBE.B32; 1° (23 vo 
: Name Bytes Attributes 
; SCODES 38 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


: orceene- Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 7 0 1000 00:01.9 
H COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:POSBE/OBJ=OBJ$:POSBE MSRC$:POSBE/UPDATE=(ENH$:POSBE) 
: 146 0528 0 

3; Size: 38 code + 0 data bytes 

; Run Time 0:05.8 

; Elapsed Time 00: 13. 2 

; Lines/CPU Min: 5471 

3; Lexemes/CPU-Min: 20176 

3 pom Used: 70 pages 

; Compilation Complete 
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